home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Frame_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  16.1 KB  |  451 lines
  1. VERSION 5.00
  2. Object = "{DF5E40D4-CC15-4039-861D-5D824D450C09}#1.1#0"; "ciaXPFrame.ocx"
  3. Object = "{083C8784-F106-4CC2-9930-876218A6B74C}#1.1#0"; "ciaXPButton.ocx"
  4. Object = "{67DAD3BE-84EC-498E-BBE8-CE32814928FC}#1.1#0"; "ciaXPImage.ocx"
  5. Object = "{E0C48EF3-1948-4B0F-B769-0D64B1F2AD6B}#1.0#0"; "ciaXPStdCombo.ocx"
  6. Object = "{BC211913-B646-4281-A764-B6E2D473D3F6.ocx}#1.1#0"; "ciaXPSelectionControls.ocx"
  7. Begin VB.Form Form1 
  8.    AutoRedraw      =   -1  'True
  9.    BackColor       =   &H00FFFFFF&
  10.    Caption         =   "XPSuite - Frame Example"
  11.    ClientHeight    =   6210
  12.    ClientLeft      =   60
  13.    ClientTop       =   450
  14.    ClientWidth     =   10440
  15.    LinkTopic       =   "Form1"
  16.    LockControls    =   -1  'True
  17.    Picture         =   "Form1.frx":0000
  18.    ScaleHeight     =   6210
  19.    ScaleWidth      =   10440
  20.    StartUpPosition =   3  'Windows Default
  21.    Begin ciaXPImage.XPImage XPImage1 
  22.       Height          =   1455
  23.       Left            =   480
  24.       TabIndex        =   18
  25.       Top             =   615
  26.       Width           =   2355
  27.       _ExtentX        =   4154
  28.       _ExtentY        =   2566
  29.       BorderStyle     =   0
  30.       AutoSize        =   -1  'True
  31.       Picture         =   "Form1.frx":C7D0E
  32.       BackStyle       =   0
  33.       MaskColor       =   16711935
  34.       ImageHeight     =   1455
  35.       ImageWidth      =   2355
  36.       LicValid        =   -1  'True
  37.    End
  38.    Begin ciaXPButton.XPButton XPButton1 
  39.       Height          =   405
  40.       Index           =   0
  41.       Left            =   8295
  42.       TabIndex        =   0
  43.       Top             =   5640
  44.       Width           =   1245
  45.       _ExtentX        =   2196
  46.       _ExtentY        =   714
  47.       Caption         =   "Apply"
  48.       OriginalPicSizeW=   0
  49.       OriginalPicSizeH=   0
  50.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       LicValid        =   -1  'True
  60.    End
  61.    Begin ciaXPButton.XPButton XPButton1 
  62.       Height          =   405
  63.       Index           =   1
  64.       Left            =   6990
  65.       TabIndex        =   1
  66.       Top             =   5640
  67.       Width           =   1245
  68.       _ExtentX        =   2196
  69.       _ExtentY        =   714
  70.       Caption         =   "Cancel"
  71.       OriginalPicSizeW=   0
  72.       OriginalPicSizeH=   0
  73.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   8.25
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       LicValid        =   -1  'True
  83.    End
  84.    Begin ciaXPButton.XPButton XPButton1 
  85.       Height          =   405
  86.       Index           =   2
  87.       Left            =   5685
  88.       TabIndex        =   2
  89.       Top             =   5640
  90.       Width           =   1245
  91.       _ExtentX        =   2196
  92.       _ExtentY        =   714
  93.       Caption         =   "OK"
  94.       OriginalPicSizeW=   0
  95.       OriginalPicSizeH=   0
  96.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  97.          Name            =   "MS Sans Serif"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       LicValid        =   -1  'True
  106.    End
  107.    Begin ciaXPFrame.XPFrame frameUpdates 
  108.       Height          =   3180
  109.       Index           =   1
  110.       Left            =   3015
  111.       TabIndex        =   3
  112.       Top             =   615
  113.       Width           =   6405
  114.       _ExtentX        =   11298
  115.       _ExtentY        =   5609
  116.       Caption         =   "Settings"
  117.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "MS Sans Serif"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       ForeColor       =   12582912
  127.       BackStyle       =   1
  128.       Radius          =   20
  129.       LicValid        =   -1  'True
  130.       Begin ciaXPSelectionControls.XPOption XPOption4 
  131.          Height          =   525
  132.          Left            =   300
  133.          TabIndex        =   4
  134.          Top             =   300
  135.          Width           =   5760
  136.          _ExtentX        =   10160
  137.          _ExtentY        =   926
  138.          Caption         =   "Notify me before dowloading any updates and notify me again before installing them on my computer."
  139.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  140.             Name            =   "MS Sans Serif"
  141.             Size            =   8.25
  142.             Charset         =   0
  143.             Weight          =   400
  144.             Underline       =   0   'False
  145.             Italic          =   0   'False
  146.             Strikethrough   =   0   'False
  147.          EndProperty
  148.          Style           =   1
  149.          GroupID         =   1
  150.          LicValid        =   -1  'True
  151.       End
  152.       Begin ciaXPSelectionControls.XPOption XPOption5 
  153.          Height          =   465
  154.          Left            =   300
  155.          TabIndex        =   5
  156.          Top             =   975
  157.          Width           =   5775
  158.          _ExtentX        =   10186
  159.          _ExtentY        =   820
  160.          Caption         =   "Download the updates automatically and notify me when they are ready to be installed."
  161.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  162.             Name            =   "MS Sans Serif"
  163.             Size            =   8.25
  164.             Charset         =   0
  165.             Weight          =   400
  166.             Underline       =   0   'False
  167.             Italic          =   0   'False
  168.             Strikethrough   =   0   'False
  169.          EndProperty
  170.          Style           =   1
  171.          Value           =   -1  'True
  172.          GroupID         =   1
  173.          LicValid        =   -1  'True
  174.       End
  175.       Begin ciaXPSelectionControls.XPOption XPOption6 
  176.          Height          =   570
  177.          Left            =   300
  178.          TabIndex        =   6
  179.          Top             =   1575
  180.          Width           =   5535
  181.          _ExtentX        =   9763
  182.          _ExtentY        =   1005
  183.          Caption         =   "Automatically download the updates, and install them on the schedule that I specify."
  184.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  185.             Name            =   "MS Sans Serif"
  186.             Size            =   8.25
  187.             Charset         =   0
  188.             Weight          =   400
  189.             Underline       =   0   'False
  190.             Italic          =   0   'False
  191.             Strikethrough   =   0   'False
  192.          EndProperty
  193.          Style           =   1
  194.          GroupID         =   1
  195.          LicValid        =   -1  'True
  196.       End
  197.       Begin ciaXPStdCombo.ciaXPStdComboBox ciaXPComboBox1 
  198.          Height          =   285
  199.          Left            =   300
  200.          TabIndex        =   7
  201.          Top             =   2205
  202.          Width           =   2175
  203.          _ExtentX        =   3836
  204.          _ExtentY        =   503
  205.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  206.             Name            =   "MS Sans Serif"
  207.             Size            =   8.25
  208.             Charset         =   0
  209.             Weight          =   400
  210.             Underline       =   0   'False
  211.             Italic          =   0   'False
  212.             Strikethrough   =   0   'False
  213.          EndProperty
  214.          MousePointer    =   0
  215.          MouseIcon       =   "Form1.frx":D3038
  216.          Enabled         =   0   'False
  217.          BackColor       =   16053492
  218.          ShowInnerShadow =   0   'False
  219.          LicValid        =   -1  'True
  220.       End
  221.       Begin ciaXPStdCombo.ciaXPStdComboBox ciaXPComboBox2 
  222.          Height          =   285
  223.          Left            =   2850
  224.          TabIndex        =   8
  225.          Top             =   2205
  226.          Width           =   1590
  227.          _ExtentX        =   2805
  228.          _ExtentY        =   503
  229.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  230.             Name            =   "MS Sans Serif"
  231.             Size            =   8.25
  232.             Charset         =   0
  233.             Weight          =   400
  234.             Underline       =   0   'False
  235.             Italic          =   0   'False
  236.             Strikethrough   =   0   'False
  237.          EndProperty
  238.          MousePointer    =   0
  239.          MouseIcon       =   "Form1.frx":D3054
  240.          Enabled         =   0   'False
  241.          BackColor       =   16053492
  242.          ShowInnerShadow =   0   'False
  243.          LicValid        =   -1  'True
  244.       End
  245.       Begin ciaXPButton.XPButton cmdGen 
  246.          Height          =   345
  247.          Index           =   1
  248.          Left            =   4275
  249.          TabIndex        =   9
  250.          Top             =   2700
  251.          Width           =   1935
  252.          _ExtentX        =   3413
  253.          _ExtentY        =   609
  254.          Caption         =   "Decline Updates"
  255.          OriginalPicSizeW=   0
  256.          OriginalPicSizeH=   0
  257.          Enabled         =   0   'False
  258.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  259.             Name            =   "MS Sans Serif"
  260.             Size            =   8.25
  261.             Charset         =   0
  262.             Weight          =   400
  263.             Underline       =   0   'False
  264.             Italic          =   0   'False
  265.             Strikethrough   =   0   'False
  266.          EndProperty
  267.          MouseIcon       =   "Form1.frx":D3070
  268.          LicValid        =   -1  'True
  269.       End
  270.       Begin VB.Label Label18 
  271.          AutoSize        =   -1  'True
  272.          BackStyle       =   0  'Transparent
  273.          Caption         =   "scheduled installing"
  274.          BeginProperty Font 
  275.             Name            =   "MS Sans Serif"
  276.             Size            =   8.25
  277.             Charset         =   0
  278.             Weight          =   400
  279.             Underline       =   -1  'True
  280.             Italic          =   0   'False
  281.             Strikethrough   =   0   'False
  282.          EndProperty
  283.          ForeColor       =   &H00C00000&
  284.          Height          =   195
  285.          Left            =   1605
  286.          TabIndex        =   12
  287.          Top             =   2655
  288.          Width           =   1380
  289.       End
  290.       Begin VB.Label Label6 
  291.          AutoSize        =   -1  'True
  292.          BackStyle       =   0  'Transparent
  293.          Caption         =   "Learn more about"
  294.          Height          =   195
  295.          Left            =   300
  296.          TabIndex        =   11
  297.          Top             =   2655
  298.          Width           =   1245
  299.       End
  300.       Begin VB.Label Label5 
  301.          AutoSize        =   -1  'True
  302.          BackStyle       =   0  'Transparent
  303.          Caption         =   "at"
  304.          Enabled         =   0   'False
  305.          Height          =   195
  306.          Left            =   2610
  307.          TabIndex        =   10
  308.          Top             =   2250
  309.          Width           =   135
  310.       End
  311.    End
  312.    Begin ciaXPFrame.XPFrame frameHardware 
  313.       Height          =   1380
  314.       Index           =   2
  315.       Left            =   3000
  316.       TabIndex        =   13
  317.       Top             =   3840
  318.       Visible         =   0   'False
  319.       Width           =   6405
  320.       _ExtentX        =   11298
  321.       _ExtentY        =   2434
  322.       Caption         =   "Hardware Profiles"
  323.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  324.          Name            =   "MS Sans Serif"
  325.          Size            =   8.25
  326.          Charset         =   0
  327.          Weight          =   400
  328.          Underline       =   0   'False
  329.          Italic          =   0   'False
  330.          Strikethrough   =   0   'False
  331.       EndProperty
  332.       ForeColor       =   12582912
  333.       BackStyle       =   1
  334.       Radius          =   15
  335.       LicValid        =   -1  'True
  336.       Begin ciaXPButton.XPButton cmdGen 
  337.          Height          =   345
  338.          Index           =   0
  339.          Left            =   4245
  340.          TabIndex        =   14
  341.          Top             =   855
  342.          Width           =   1935
  343.          _ExtentX        =   3413
  344.          _ExtentY        =   609
  345.          Caption         =   "Device Manager"
  346.          OriginalPicSizeW=   0
  347.          OriginalPicSizeH=   0
  348.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  349.             Name            =   "MS Sans Serif"
  350.             Size            =   8.25
  351.             Charset         =   0
  352.             Weight          =   400
  353.             Underline       =   0   'False
  354.             Italic          =   0   'False
  355.             Strikethrough   =   0   'False
  356.          EndProperty
  357.          MouseIcon       =   "Form1.frx":D338A
  358.          LicValid        =   -1  'True
  359.       End
  360.       Begin ciaXPButton.XPButton cmdGen 
  361.          Height          =   345
  362.          Index           =   4
  363.          Left            =   2160
  364.          TabIndex        =   15
  365.          Top             =   855
  366.          Width           =   1935
  367.          _ExtentX        =   3413
  368.          _ExtentY        =   609
  369.          Caption         =   "Driver Signing"
  370.          OriginalPicSizeW=   0
  371.          OriginalPicSizeH=   0
  372.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  373.             Name            =   "MS Sans Serif"
  374.             Size            =   8.25
  375.             Charset         =   0
  376.             Weight          =   400
  377.             Underline       =   0   'False
  378.             Italic          =   0   'False
  379.             Strikethrough   =   0   'False
  380.          EndProperty
  381.          MouseIcon       =   "Form1.frx":D36A4
  382.          LicValid        =   -1  'True
  383.       End
  384.       Begin ciaXPImage.XPImage XPImage4 
  385.          Height          =   435
  386.          Left            =   120
  387.          TabIndex        =   16
  388.          Top             =   270
  389.          Width           =   585
  390.          _ExtentX        =   1032
  391.          _ExtentY        =   767
  392.          BorderStyle     =   0
  393.          Appearance      =   0
  394.          AutoSize        =   -1  'True
  395.          Picture         =   "Form1.frx":D39BE
  396.          BackStyle       =   0
  397.          MaskColor       =   16711935
  398.          ImageHeight     =   435
  399.          ImageWidth      =   585
  400.          LicValid        =   -1  'True
  401.       End
  402.       Begin VB.Label Label3 
  403.          BackStyle       =   0  'Transparent
  404.          Caption         =   $"Form1.frx":D47A8
  405.          Height          =   600
  406.          Left            =   810
  407.          TabIndex        =   17
  408.          Top             =   285
  409.          Width           =   5475
  410.          WordWrap        =   -1  'True
  411.       End
  412.    End
  413. Attribute VB_Name = "Form1"
  414. Attribute VB_GlobalNameSpace = False
  415. Attribute VB_Creatable = False
  416. Attribute VB_PredeclaredId = True
  417. Attribute VB_Exposed = False
  418. Private Sub Form_Load()
  419. ciaXPComboBox1.AddItem "Everyday"
  420. ciaXPComboBox1.AddItem "Every Monday"
  421. ciaXPComboBox1.AddItem "Every Second Monday"
  422. ciaXPComboBox1.AddItem "Every 4th Monday"
  423. ciaXPComboBox2.AddItem "Midnight"
  424. ciaXPComboBox2.AddItem "1200"
  425. ciaXPComboBox2.AddItem "1600"
  426. ciaXPComboBox2.AddItem "2000"
  427. ciaXPComboBox1.ListIndex = 0
  428. ciaXPComboBox2.ListIndex = 0
  429. End Sub
  430. Private Sub XPButton1_Click(Index As Integer)
  431. Unload Me
  432. End Sub
  433. Private Sub XPOption4_Click()
  434. cmdGen(1).Enabled = True
  435. ciaXPComboBox1.Enabled = False
  436. ciaXPComboBox2.Enabled = False
  437. Label5.Enabled = False
  438. End Sub
  439. Private Sub XPOption5_Click()
  440. cmdGen(1).Enabled = False
  441. ciaXPComboBox1.Enabled = False
  442. ciaXPComboBox2.Enabled = False
  443. Label5.Enabled = False
  444. End Sub
  445. Private Sub XPOption6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  446. cmdGen(1).Enabled = False
  447. ciaXPComboBox1.Enabled = XPOption6.Value
  448. ciaXPComboBox2.Enabled = XPOption6.Value
  449. Label5.Enabled = XPOption6.Value
  450. End Sub
  451.